home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO050.dsk
/
BASIC.COPY.2.bas
< prev
next >
Wrap
BASIC Source File
|
2012-02-16
|
3KB
|
95 lines
10 REM *** BASIC.COPY.2 *** (ProDos Inside & Out p.77)
20 HOME
25 A$ = " ": HTAB 9: VTAB 8: INVERSE
30 FOR I = 1 TO 25: PRINT A$;: NEXT : PRINT
35 FOR I = 1 TO 8: HTAB 9: PRINT A$;: HTAB 33: PRINT A$: NEXT
40 HTAB 9: VTAB 16
45 FOR I = 1 TO 25: PRINT A$;: NEXT : PRINT : NORMAL
50 HTAB 16: VTAB 10: PRINT "CheckWriter"
55 HTAB 20: VTAB 12: PRINT "by"
60 HTAB 14: VTAB 14: PRINT "Howard R. Cohen"
61 HTAB 24: VTAB 15: PRINT "(c) 1987"
65 GOSUB 1000
70 P1$ = PD$
110 REM P1$= prefix of volume that files are to be copied FROM (MAY BE DEFINED IN CW)
120 P2$ = "/RAM/": REM prefix of volume that files are to be copied TO
130 F$ = "ONGOING.DATA":T$ = "TXT": GOSUB 400: REM names and types of files to copy
140 F$ = "MAIN.DATA":T$ = "TXT": GOSUB 400
150 F$ = "CAT.DATA":T$ = "TXT": GOSUB 400
160 F$ = "RECUR.TRANS":T$ = "TXT": GOSUB 400
170 F$ = "RECON.BAL.DATA":T$ = "TXT": GOSUB 400
180 F$ = "RT.CODE.DATA":T$ = "TXT": GOSUB 400
280 VTAB 22
290 VTAB 22: PRINT D$;"RUN /RAM/CW": REM next program to run
300 END
400 B = 0:A = 0:E = 0:L = 0: REM Important--messing with this line can be fatal
405 X1 = 0:X2 = 0:CMD = 0
410 PRINT D$;"FRE"
420 A = PEEK(109) + PEEK(110) *256
425 E = PEEK(111) + PEEK(112) *256
430 ONERR GOTO 500
440 PRINT D$;"CREATE";P2$;F$;",T";T$
450 PRINT D$;"BLOAD";P1$;F$;",T";T$;",A";A;",E";E -1;",B";B
455 CMD = 196: GOSUB 600:X1 = PEEK(48825):X2 = PEEK(48826)
460 L = PEEK(48859) + PEEK(48860) *256
470 PRINT D$;"BSAVE";P2$;F$;",T";T$;",A";A;",L";L;",B";B
475 CMD = 195: POKE 48820,7: POKE 48825,X1: POKE 48826,X2: GOSUB 600
480 IF L = (E -A) THEN B = B +L: GOTO 450
490 POKE 216,0: RETURN
500 IF PEEK(222) = 19 THEN PRINT D$;"DELETE";P2$;F$: RESUME
510 IF PEEK(222) = 5 THEN CALL -3288: GOTO 490
512 IF PEEK(222) = 6 THEN CALL -3288: GOTO 2000
514 IF PEEK(222) = 8 THEN CALL -3288: GOTO 2000
520 PRINT "ERROR #"; PEEK(222);" IN LINE "; PEEK(218) + PEEK(219) *256
530 END
580 GOTO 130
600 REM *** MLI caller for use with BASIC.SYSTEM ***
610 POKE 48728,169: POKE 48729,CMD: POKE 48730,32
620 POKE 48731,112: POKE 48732,190: POKE 48733,176
630 POKE 48734,170: POKE 48735,96: CALL 48728: RETURN
1000 D$ = CHR$(4)
1005 VTAB 18
1010 PRINT D$;"OPEN /RAM/DATA.LOC"
1020 PRINT D$;"READ /RAM/DATA.LOC"
1030 INPUT PD$
1040 PRINT D$;"CLOSE /RAM/DATA.LOC"
1050 RETURN
2000 REM ONERR ROUTINE
2010 PRINT D$;"PR#3"
2020 HOME
2025 HTAB 23: VTAB 5
2030 PRINT "YOUR PATHNAME IS AMOUNG THE MISSING"
2035 HTAB 1: VTAB 8
2040 INPUT "PLEASE ENTER THE PATHNAME OF YOUR DATA DISK /";X$
2050 PD$ = "/" +X$ +"/"
2055 HTAB 13: VTAB 12
2060 PRINT "DO YOU WANT TO <S>AVE THIS PATHNAME FOR PERMANENT USE?"
2070 HTAB 40: VTAB 14: GET X$
2080 IF X$ = "S" OR X$ = "s" THEN 2500
2090 GOTO 3000
2500 REM SAVE PATH
2510 PRINT D$;"PREFIX";PP$
2520 PRINT D$;"OPEN DATA.LOC"
2530 PRINT D$;"WRITE DATA.LOC"
2540 PRINT PD$
2550 PRINT D$;"CLOSE DATA.LOC"
2560 PRINT D$;"PREFIX /RAM"
2570 PRINT D$;"OPEN DATA.LOC"
2580 PRINT D$;"WRITE DATA.LOC"
2590 PRINT PD$
2595 PRINT D$;"CLOSE DATA.LOC"
2700 HOME
2710 HTAB 1: VTAB 18
2720 PRINT PD$;" HAS BEEN SAVED AS THE DATA LOCATION"
2730 HTAB 27: VTAB 21
2740 PRINT "PRESS <ANY KEY> TO CONTINUE"
2750 HTAB 40: VTAB 22
2760 GET X$
3000 HOME
3005 HTAB 25: VTAB 12
3010 PRINT "LOADING CheckWriter DATA FROM"
3012 H = 40 - INT(.5 *( LEN(PD$)))
3014 HTAB H: VTAB 13
3016 PRINT PD$
3020 PRINT D$;"PREFIX /RAM"
3030 GOTO 70